home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / M-More Monthly Disks / (c)md.d64 / cyrillic.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  1KB  |  39 lines
  1. 1 REM:HARRY METZ
  2. 2 REM:699 WEST 239TH STREET
  3. 3 REM:BRONX N.Y. 10463
  4. 5 PRINTCHR$(142)
  5. 10 POKE52,48:POKE56,48:CLR
  6. 20 POKE56334,PEEK(56334)AND254
  7. 30 POKE1,PEEK(1)AND251
  8. 40 FORI=0TO511:POKEI+12288,PEEK(I+53248):NEXT
  9. 50 POKE1,PEEK(1)OR4
  10. 60 POKE56334,PEEK(56334)OR1
  11. 70 POKE53272,(PEEK(53272)AND240)+12
  12. 100 FORI=12296TO12503:READA:POKEI,A:NEXT
  13. 110 DATA 120,164,36,60,36,164,66,0
  14. 120 DATA 124,162,34,60,34,162,124,0
  15. 130 DATA 24,38,68,64,64,36,24,0
  16. 140 DATA 124,162,34,34,34,162,124,0
  17. 150 DATA 124,162,32,56,32,162,124,0
  18. 160 DATA 124,162,32,56,32,160,64,0
  19. 170 DATA 26,36,64,76,68,36,24,0
  20. 180 DATA 98,164,36,60,36,164,98,0
  21. 190 DATA 56,84,16,16,16,84,56,0
  22. 200 DATA 60,74,8,8,232,72,48,0
  23. 210 DATA 98,162,36,40,56,164,98,0
  24. 220 DATA 96,160,32,32,34,162,124,0
  25. 230 DATA 84,170,42,42,42,162,68,0
  26. 240 DATA 88,164,36,36,36,164,66,0
  27. 250 DATA 48,72,132,132,132,72,48,0
  28. 260 DATA 124,162,34,60,32,160,64,0
  29. 270 DATA 48,72,132,132,148,72,52,0
  30. 280 DATA 124,62,34,60,40,164,98,0
  31. 290 DATA 126,130,128,124,2,130,252,0
  32. 300 DATA 124,146,16,16,16,16,56,0
  33. 310 DATA 72,164,36,36,36,36,26,0
  34. 320 DATA 68,162,34,34,20,20,8,0
  35. 330 DATA 68,162,34,42,42,42,20,0
  36. 340 DATA 66,164,24,24,36,66,132,0
  37. 350 DATA 68,162,20,8,8,40,16,0
  38. 360 DATA 126,132,8,16,32,66,252,0
  39.